home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 65.zip / BS1 part 65 / Amos Image Manipulator 1.1.adf / autoexec.Bak / autoexec.amosSourceCode next >
AMOS Source Code  |  1999-12-26  |  16KB  |  651 lines
  1. '++++ Welcome to The Amos Image Manipulator By Martin Donnelly 
  2. '++++  
  3. '++++ This is for those people that do not have PIX-MATE 
  4. '++++
  5. '++++ Click on eikons to use that function 
  6. US=2321
  7. Global US
  8. PROT
  9. UI:
  10. Global MK,A,H,W,CL,F$,SCR,MEM,C,C1,C2,C3,MOM,CL$,CL1$
  11. CL$=""
  12. F$="Nothing Loaded!"
  13. MOM=Chip Free
  14. If Chip Free>250000
  15.    MEM=True
  16. Else 
  17.    MEM=False
  18. End If 
  19. STRT
  20. Procedure STRT
  21.    Close Editor 
  22.    Close Workbench 
  23.    KLEAR
  24.    SET_MENU
  25.    S:
  26.    If MEM=0 Then Menu Inactive(3,11)
  27.    If MEM=0 and MK=1 Then MEM
  28.    If MEM=0 and MK=0 Then Bell 1 : Wait 10 : Bell 1
  29.    H1$=Str$(H)
  30.    W1$=Str$(W)
  31.    CL1$=Str$(CL)
  32.    W$="Width :"+W1$
  33.    H$="hieght:"+H1$
  34.    CL$="No of cols:"+CL1$
  35.    Menu$(1,7,1)="Name of pic"
  36.    Menu$(1,7,2)=F$
  37.    Menu$(1,7,3)=W$
  38.    Menu$(1,7,4)=H$
  39.    Menu$(1,7,5)=CL$
  40.    C=0
  41.    Do 
  42.       M=Mouse Click
  43.       C=1 : C1=0 : C2=0 : C3=0
  44.       C=Choice : C1=Choice(1) : C2=Choice(2) : C3=Choice(3)
  45.       '      Print At(0,9);C,C1,C2,C3
  46.       M=Mouse Click
  47.       A$=Inkey$
  48.       If A$="l" Then LODE : Goto S
  49.       If A$="s" Then SVE : Goto S
  50.       If C and C1=1 and C2=1 Then LODE : Goto S
  51.       If C and C1=1 and C2=2 Then SVE : Goto S
  52.       If C and C1=1 and C2=9 Then QUIT : Edit 
  53.       If C and C1=1 and C2=8 and C3=1 Then MK=1
  54.       If C and C1=1 and C2=8 and C3=2 Then MK=0
  55.       '
  56.       '
  57.       If C and C1=3 and C2=1 Then SMEAR : Goto S
  58.       If C and C1=3 and C2=2 Then PIX : Goto S
  59.       If C and C1=3 and C2=3 Then EFFECTS : Goto S
  60.       If C and C1=3 and C2=4 Then CCOL
  61.       If C and C1=3 and C2=5 Then SHRINK : Goto S
  62.       If C and C1=3 and C2=6 and C3=2 Then FLIPH : Goto S
  63.       If C and C1=3 and C2=6 and C3=3 Then FLIPV : Goto S
  64.       If C and C1=3 and C2=7 and C3=1 Then KLEAR : Goto S
  65.       If C and C1=3 and C2=8 Then FUN : Goto S
  66.       If C and C1=3 and C2=9 Then DK : Goto S
  67.       If C and C1=3 and C2=10 Then SPLAT : Goto S
  68.       If C and C1=3 and C2=11 Then MTOL : Goto S
  69.       If C and C1=3 and C2=12 Then HALF : Goto S
  70.       If C and C1=3 and C2=13 Then BLACK : Goto S
  71.       '
  72.       '
  73.       If A$="b" Then BLACK : Goto S
  74.       If A$="f" Then FIND
  75.    Loop 
  76. End Proc
  77. Procedure SET_MENU
  78.    CL=Screen Colour
  79.    Ink Rnd(16)
  80.    H1$=Str$(H)
  81.    W1$=Str$(W)
  82.    CL1$=Str$(CL)
  83.    W$="Width :"+W1$
  84.    H$="hieght:"+H1$
  85.    CL$="Cols:"+CL1$
  86.    '
  87.    '
  88.    Menu$(1)="  INFO  "
  89.    Menu$(1,1)="Load a pic  "
  90.    Menu$(1,2)="Save a pic  "
  91.    Menu$(1,3)="------------" : Menu Inactive(1,3)
  92.    Menu$(1,4)="About    >> "
  93.    Menu$(1,5)="Version  >> "
  94.    Menu$(1,6)="------------" : Menu Inactive(1,6)
  95.    Menu$(1,7)="Pic info >> "
  96.    Menu$(1,8)="Mem Warning "
  97.    Menu$(1,8,1)="Warning On "
  98.    Menu$(1,8,2)="Warning Off"
  99.    Menu$(1,9)="Quit        "
  100.    '
  101.    Menu$(1,5,1)="Version 1.1"
  102.    Menu$(1,5,2)="Look out for version 2"
  103.    Menu Inactive(1,5,1)
  104.    Menu Inactive(1,5,2)
  105.    Menu$(1,4,1)="THE AMOS IMAGE MANIPULATOR"
  106.    Menu$(1,4,2)="By Martin Donnelly"
  107.    Menu$(1,4,3)="Copyright Megasoft 1991"
  108.    Menu$(1,4,4)="Hellos to Nick,Alan,John"
  109.    Menu$(1,4,5)="Veronika,Dave,Liam,and"
  110.    Menu$(1,4,6)="everyone at Lorenzos P.d. &"
  111.    Menu$(1,4,7)="Zenith P.d. and Megasoft"
  112.    '
  113.    '   Menu$(1,5,1)="HELP"
  114.    '
  115.    Menu$(1,7,1)="Name of pic"
  116.    Menu$(1,7,2)=F$
  117.    Menu$(1,7,3)=W$
  118.    Menu$(1,7,4)=H$
  119.    Menu$(1,7,5)=CL$
  120.    '
  121.    Menu Inactive(1,4,1)
  122.    Menu Inactive(1,4,2)
  123.    Menu Inactive(1,4,3)
  124.    Menu Inactive(1,4,4)
  125.    Menu Inactive(1,4,5)
  126.    Menu Inactive(1,4,6)
  127.    Menu Inactive(1,4,7)
  128.    '
  129.    Menu$(3)="  Function  "
  130.    Menu$(3,1)="Smooth         "
  131.    Menu$(3,2)="Pixilize       "
  132.    Menu$(3,3)="Inverse Cols   "
  133.    Menu$(3,4)="Change Cols >> "
  134.    Menu$(3,5)="Shrink      >> "
  135.    Menu$(3,6)="Flip        >> "
  136.    Menu$(3,7)="Clear          " : Menu$(3,7,1)="Are you sure?"
  137.    Menu$(3,8)="Shift colours  "
  138.    Menu$(3,9)="Dekay          "
  139.    Menu$(3,10)="Splatter       "
  140.    Menu$(3,12)="Half vertical  "
  141.    Menu$(3,13)="Erase points   "
  142.    '
  143.    Menu$(3,8,1)="Colours up  "
  144.    Menu$(3,8,2)="Colours Down"
  145.    '
  146.    Menu$(3,9,1)="Length of time"
  147.    Menu$(3,9,2)="Short         "
  148.    Menu$(3,9,3)="Long          "
  149.    Menu Inactive(3,9,1)
  150.    '
  151.    Menu$(3,11)="Medium to Lores"
  152.    '
  153.    Menu$(3,4,1)="Change to" : Menu Inactive(3,4,1)
  154.    Menu$(3,4,2)="Red      "
  155.    Menu$(3,4,3)="Green    "
  156.    Menu$(3,4,4)="Blue     "
  157.    Menu$(3,4,5)="White    "
  158.    '
  159.    Menu$(3,5,1)="Shrink by" : Menu Inactive(3,5,1)
  160.    Menu$(3,5,2)="Quarter  "
  161.    Menu$(3,5,3)="Eighth   "
  162.    Menu$(3,5,4)="Sixteenth"
  163.    '
  164.    Menu$(3,6,1)="Direction" : Menu Inactive(3,6,1)
  165.    Menu$(3,6,2)="Horizontaly"
  166.    Menu$(3,6,3)="Verticaly  "
  167.    Menu Movable(1)
  168.    Menu On 
  169.    Menu Tline(1)
  170.    If SCR=0 Then Menu Inactive(3)
  171.    If SCR=89 Then Menu Active(3)
  172. End Proc
  173. Procedure LODE
  174.    '  Cls 
  175.    ' Print "Please enter picture name"
  176.    F$=Fsel$("","",".A. .I. .M.","Load a picture")
  177.    If F$="" Then Goto P
  178.    Change Mouse 3
  179.    Load Iff F$,0
  180.    SCR=89
  181.    Change Mouse 1
  182.    H=Screen Height
  183.    W=Screen Width
  184.    CL=Screen Colour
  185.    H1$=Str$(H)
  186.    W1$=Str$(W)
  187.    CL1$=Str$(CL)
  188.    W$="Width :"+W1$
  189.    H$="hieght:"+H1$
  190.    CL$="No of cols:"+CL1$
  191.    C=0
  192.    P:
  193.    C=0 : C1=0
  194.    SET_MENU
  195.    Menu On 
  196. End Proc
  197. Procedure SMEAR
  198.    If SCR=0 Then ERR
  199.    Change Mouse 3
  200.    Screen 0
  201.    For Y=0 To H
  202.       For X=0 To W
  203.          M=Mouse Click
  204.          If M=1 Then Goto A
  205.          F=Point(X,Y) : F1=Point(X+1,Y)
  206.          D=F+F1
  207.          D=D/2 : If D<0 Then D=0
  208.          Ink D
  209.          Plot X,Y
  210.       Next 
  211.    Next 
  212.    A:
  213.    Change Mouse 1
  214. End Proc
  215. Procedure PIX
  216.    If SCR=0 Then ERR
  217.    If SCR<89 Then Goto S
  218.    Change Mouse 3
  219.    For Y=0 To H Step 8
  220.       For X=0 To W Step 8
  221.          M=Mouse Click
  222.          If M=1 Then Goto A
  223.          C=0 : D=0 : U=4 : E=4
  224.          'For E=1 To 8
  225.          '  For U=1 To 8
  226.          M=Mouse Click : If M=1 Then Change Mouse 1 : Goto S
  227.          C=Point(X+U,Y+E)
  228.          'D=D+C 
  229.          ' Next 
  230.          'Next  
  231.          'C=D/64 : Ink C
  232.          Ink C
  233.          Bar X,Y To X+8,Y+8
  234.       Next 
  235.    Next 
  236.    Change Mouse 1
  237. End Proc
  238. Procedure SHRINK
  239.    If SCR=0 Then ERR
  240.    If C3=2 Then F=160 : W1=W/2 : H1=H/2
  241.    If C3=3 Then F=60 : W1=W/4 : H1=H/4
  242.    If C3=4 Then F=30 : W1=W/8 : H1=H/8
  243.    Change Mouse 3
  244.    Zoom 0,0,0,W,H To 0,0,0,W1,H1
  245.    Ink 0
  246.    Bar 0,H1 To W,H
  247.    Bar W1,0 To W,H
  248.    Change Mouse 1
  249. End Proc
  250. Procedure SET
  251.    Paper 0
  252.    Ink 1,3
  253.    Screen 0
  254.    Box 8,2 To 43,12 : 
  255.    Ink 3 : Paint 9,3
  256.    Ink 1
  257.    Text 10,10,"LOAD"
  258.    Text 47,10,"SAVE"
  259.    Box 45,2 To 79,12
  260.    Ink 3 : Paint 46,3
  261.    Ink 1,3
  262.    Text 83,10,"SMEAR"
  263.    Box 81,2 To 124,12
  264.    Ink 3 : Paint 82,3 : Ink 1
  265.    Text 83,23,"FUN"
  266.    Box 81,15 To 107,25
  267.    Ink 3 : Paint 82,16 : Ink 1
  268.    Text 112,23,"FLIP V"
  269.    Box 110,15 To 160,25
  270.    Ink 3 : Paint 111,16 : Ink 1
  271.    Text 165,23,"FLIP H"
  272.    Box 163,15 To 213,25
  273.    Ink 3 : Paint 164,16 : Ink 1
  274.    Text 128,10,"PIX"
  275.    Box 126,2 To 153,12
  276.    Ink 3 : Paint 127,3 : Ink 1
  277.    Text 157,10,"SHRINK"
  278.    Box 155,2 To 205,12
  279.    Ink 3 : Paint 156,3 : Ink 1
  280.    Text 208,10,"INVRT"
  281.    Box 207,2 To 248,12
  282.    Ink 3 : Paint 208,3 : Ink 1
  283.    Text 252,10,"QUIT"
  284.    Box 250,2 To 286,12
  285.    Ink 3 : Paint 251,3 : Ink 1
  286.    Text 252,23,"A"
  287.    Box 250,15 To 262,25
  288.    Text 266,23,"H"
  289.    Box 264,15 To 274,25
  290.    Ink 3 : Paint 265,16 : Paint 251,16
  291. End Proc
  292. Procedure EFFECTS
  293.    If SCR=0 Then ERR
  294.    If SCR<89 Then Goto S
  295.    Change Mouse 3
  296.    W=Screen Width
  297.    H=Screen Height
  298.    Screen Copy 0,0,0,W,H To 0,0,0,49
  299.    Change Mouse 1
  300. End Proc
  301. Procedure ERR
  302.    Bell 1
  303.    Palette $FF
  304.    Wait 20
  305.    Bell 10
  306.    Palette 0
  307.    Change Mouse 1
  308.    SCR=0
  309.    Goto S
  310. End Proc
  311. Procedure FUN
  312.    If SCR=0 Then ERR
  313.    If SCR<89 Then Goto S
  314.    Change Mouse 3
  315.    RD=Rnd(5)
  316.    For Y=0 To H
  317.       For X=0 To W
  318.          M=Mouse Click
  319.          If M=1 Then Goto A
  320.          C=Point(X,Y)
  321.          If C3=1 Then D=C+1
  322.          If C3=2 Then D=C-1
  323.          If D>SCR Then D=SCR
  324.          If S<0 Then D=0
  325.          Ink D
  326.          Plot X,Y
  327.       Next 
  328.    Next 
  329.    Change Mouse 1
  330. End Proc
  331. Procedure QUIT
  332.    Flash Off 
  333.    If CL=4 Then Fade 10
  334.    If CL=16 Then Shift Down 4,0,15,1
  335.    If CL=32 Then Shift Up 1,0,31,1
  336.    Shift Off 
  337.    Wait 50
  338.    Fade 3 : Wait 45
  339.    Screen Close 0
  340. End Proc
  341. Procedure SVE
  342.    If F$="Nothing Loaded!" Then Goto A
  343.    F$=Fsel$("","","SAVE A PICTURE")
  344.    If F$="" Then Goto R
  345.    Change Mouse 3
  346.    Save Iff F$,1
  347.    Change Mouse 1
  348.    R:
  349. End Proc
  350. Procedure CCOL
  351.    If C3=2 and CL=16 Then Palette 0,$100,$200,$300,$400,$500,$600,$700,$800,$900,$A00,$B00,$C00,$D00,$E00,$F00 : Goto L
  352.    If C3=2 and CL=32 Then Palette 0,0,$100,$100,$200,$200,$300,$300,$400,$400,$500,$500,$600,$600,$700,$700,$800,$800,$900,$900,$A00,$A00,$B00,$B00,$C00,$C00,$D00,$D00,$E00,$E00,$F00,$F00 : Goto L
  353.    If C3=3 and CL=16 Then Palette 0,$10,$20,$30,$40,$50,$60,$70,$80,$90,$A0,$B0,$C0,$D0,$E0,$F0 : Goto L
  354.    If C3=3 and CL=32 Then Palette 0,0,$10,$10,$20,$20,$30,$30,$40,$40,$50,$50,$60,$60,$70,$70,$80,$80,$90,$90,$A0,$A0,$B0,$B0,$C0,$C0,$D0,$D0,$E0,$E0,$F0,$F0 : Goto L
  355.    If C3=4 and CL=16 Then Palette 0,$1,$2,$3,$4,$5,$6,$7,$8,$9,$A,$B,$C,$D,$E,$F : Goto L
  356.    If C3=4 and CL=32 Then Palette 0,0,$1,$1,$2,$2,$3,$3,$4,$4,$5,$5,$6,$6,$7,$7,$8,$8,$9,$9,$A,$A,$B,$B,$C,$C,$D,$D,$E,$E,$F,$F : Goto L
  357.    L:
  358. End Proc
  359. Procedure MTOL
  360.    If MEM=False Then ER : Goto G
  361.    Screen Open 1,320,250,CL,Lowres
  362.    Screen 1 : Cls 0
  363.    Screen To Front 1
  364.    If SCR=0 Then ERR
  365.    Screen 0
  366.    O=0
  367.    For Y=0 To H
  368.       O=0
  369.       For X=0 To W Step 2
  370.          O=O+1
  371.          M=Mouse Click
  372.          If M=1 Then Goto G
  373.          F=Point(X,Y)
  374.          Ink F
  375.          Screen 1
  376.          Plot O,Y
  377.          Screen 0
  378.       Next 
  379.    Next 
  380.    Ink 0
  381.    Fade 3 To 0
  382.    Screen Close 0
  383.    Screen Copy 1 To 0
  384.    Screen Close 1
  385.    G:
  386. End Proc
  387. Procedure FLIPV
  388.    Screen Open 1,W,55,32,Lowres
  389.    Screen To Front 0
  390.    Cls 0
  391.    Fade 1 To 0
  392.    Change Mouse 3
  393.    If SCR=0 Then ERR
  394.    For Y=0 To H/2-1
  395.       Screen 0
  396.       J=H-Y
  397.       Screen Copy 0,0,Y,W,Y+1 To 1,0,10
  398.       Screen Copy 0,0,J,W,J+1 To 0,0,Y
  399.       Screen 1
  400.       Screen Copy 1,0,10,W,11 To 0,0,J
  401.    Next 
  402.    Change Mouse 1
  403.    Screen Close 1
  404. End Proc
  405. Procedure FLIPH
  406.    If SCR=0 Then ERR
  407.    Change Mouse 3
  408.    Screen Open 1,20,H,CL,Lowres
  409. Screen To Front 0
  410.    Fade 3 To 0
  411.    For Y=0 To W/2-1
  412.       Screen 0
  413.       J=W-Y
  414.       If J<Y Then J=H/2+1
  415.       Screen Copy 0,Y,0,Y+1,H To 1,2,0
  416.       Screen Copy 0,J,0,J+1,H To 1,5,0
  417.       Screen 1
  418.       Screen Copy 1,2,0,3,H To 0,J,0
  419.       Screen Copy 1,5,0,6,H To 0,Y,0
  420.    Next 
  421.    Change Mouse 1
  422. End Proc
  423. Procedure DK
  424.    If SCR=0 Then ERR
  425.    Change Mouse 3
  426.    If C3=2 Then O=8000
  427.    If C3=3 Then O=649900
  428.    Randomize(Timer)
  429.    For T=1 To O
  430.       M=Mouse Click : If M=1 Then Goto A : 
  431.       X=Rnd(320) : Y=Rnd(250)
  432.       F=Point(X,Y) : F1=Point(X,Y+1) : F2=Point(X,Y+2)
  433.       Ink F
  434.       Plot X,Y+1 : Ink F1 : Plot X,Y+2 : Ink F2 : Plot X,Y+3
  435.    Next 
  436.    Change Mouse 1
  437. End Proc
  438. Procedure SPLAT
  439.    If SCR=0 Then ERR
  440.    Change Mouse 3
  441.    Randomize(Timer)
  442.    For T=1 To 8000
  443.       M=Mouse Click : If M=1 Then Goto A : 
  444.       X=Rnd(320) : Y=Rnd(250)
  445.       F=Point(X,Y) : F1=Point(X,Y+1) : F2=Point(X,Y+2)
  446.       Ink F
  447.       Plot X,Y+1 : Ink F1 : Rem Plot X,Y+2 : Ink F2 : Plot X,Y+3 
  448.       Plot X,Y-1 : Plot X,Y-2 : Plot X,Y+2
  449.       Plot X-2,Y : Plot X-1,Y : Plot X+1,Y : Plot X+2,Y
  450.    Next 
  451.    Change Mouse 1
  452. End Proc
  453. Procedure KLEAR
  454.    Screen Open 0,320,90,4,Lowres
  455.    Cls 0
  456.    Paper 0
  457.    Palette $44,$F,$0
  458.    Curs Off 
  459.    RESET
  460.    F$="Nothing Loaded!"
  461. End Proc
  462. Procedure CUSTOM
  463.    Do 
  464.       X=X Mouse
  465.       Y=Y Mouse
  466.       C=(X+Y)*10
  467.       '     'U=(X*Y)-C   
  468.       Palette C,X,Y,U
  469.       M=Mouse Click
  470.       If M=1 Then Goto O
  471.       Wait Vbl 
  472.    Loop 
  473.    O:
  474. End Proc
  475. Procedure ABOUT
  476.    Hide 
  477.    Cls 0 : Home 
  478.    Print "Amos"
  479.    Print "Image "
  480.    Print "Manipulation"
  481.    Print 
  482.    Print "By"
  483.    Print "Martin "
  484.    Print "Donnelly"
  485.    Wait 60
  486.    Cls : Home 
  487.    Print "Hi to Nick, Alan, John, Ronnie, Dave, Liam"
  488.    Print "Every one connected with Megasoft and Zenith P.d."
  489.    Print "Lorrie at Lorenzos Domain. Every on connected with ?"
  490.    Wait 120
  491.    Cls : Home 
  492.    Print "Need any help, click on the H"
  493.    Print 
  494.    Print 
  495.    Print "A.I.M. Copyright M.Donnelly and Megasoft 1991"
  496.    Wait 60
  497.    Show 
  498. End Proc
  499. Procedure HELP
  500.    Cls 0 : Home 
  501.    Print "Help Screen"
  502.    Print "this for those people that do not have PIX-MATE"
  503.    Print 
  504.    Print "Click on icon to use that function "
  505.    Print "here are a list of key presses "
  506.    Print 
  507.    Wait 170
  508.    Print "l for load | x for save | s for shrink "
  509.    Print "5 for smear | i for Invert | F for fun "
  510.    Print " v to flip the screen verticaly "
  511.    Print " h to flip it horizontaly "
  512.    Wait 170
  513.    Print " c to change colour | d for dekay | k to klear the gfx screen "
  514.    Print " p to pixilize the screen   "
  515.    Print " * to change menu bar cols"
  516.    Print " m for Mres to lores : 1meg machines only"
  517.    Print "Control C = exit"
  518.    Print "Warning! There is no OK? on the quit icon"
  519.    Wait 200
  520. End Proc
  521. Procedure ER
  522.    Cls 0 : Home 
  523.    For T=1 To 10
  524.       Print "Not enough memory!!!!!!!"
  525.    Next 
  526.    Wait 100
  527. End Proc
  528. Procedure BLACK
  529.    Menu Off 
  530.    Change Mouse 2
  531.    Screen Open 1,320,50,CL,Lowres
  532.    Flash Off 
  533.    Fade 3 To 0
  534.    Wait 30
  535.    Cls 0 : Paper 0 : Print At(7,0);"Black out the background"
  536.    Print At(7,1);"Use 'm' to magnify the box"
  537.    For T=0 To CL-1
  538.       Paper T
  539.       Print At(T+4,4);" "
  540.    Next 
  541.    Z=0
  542.    Do 
  543.       Screen 0
  544.       X=X Mouse-128 : Y=Y Mouse-42
  545.       A$=Inkey$
  546.       If A$="" Then Zoom 0,X-10,Y-10,X+10,Y+10 To 1,10,0,50,40
  547.       If A$="m" Then Zoom 0,X-5,Y-5,X+5,Y+5 To 1,10,0,50,40
  548.       If A$="," Then F=F-1 : Z=Z-1
  549.       If F=<0 Then F=0 : If Z<0 Then Z=0
  550.       ARRA
  551.       X1=X Mouse-128 : Y1=Y Mouse-42
  552.       M=Mouse Click
  553.       K=Mouse Key
  554.       Ink 0
  555.       If K=1 Then Plot X,Y
  556.       If K=1 Then Draw X,Y To X1,Y1
  557.       If M=2 Then Goto H
  558.    Loop 
  559.    H:
  560.    Change Mouse 1
  561.    Screen Close 1
  562.    Menu On 
  563. End Proc
  564. Procedure HALF
  565.    H1=H/2
  566.    O=-1
  567.    Change Mouse 3
  568.    Zoom 0,0,0,W,H To 0,0,0,W,H1
  569.    Change Mouse 1
  570.    Ink 0
  571.    Bar 0,H1 To W,H
  572. End Proc
  573. Procedure BLOW
  574.    Randomize(Timer)
  575.    Change Mouse 3
  576.    For T=1 To 8000
  577.       M=Mouse Click
  578.       If M=1 Then Goto A
  579.       X=Rnd(W)
  580.       Y=Rnd(H)
  581.       F=Point(X,Y)
  582.       G=Rnd(5)
  583.       For D=1 To 5
  584.          M=Mouse Click
  585.          If M=1 Then Goto A
  586.          Ink F
  587.          Circle X,Y,D
  588.       Next 
  589.    Next 
  590. End Proc
  591. Procedure ARRA
  592.    Screen 1
  593.    Ink 0
  594.    Draw 50,45 To 320,45
  595.    If F=<0 Then F=0 : If Z<0 Then Z=0
  596.    Ink 3
  597.    Draw 50+(8*Z),45 To 50+8+(8*Z),45
  598.    H=Rnd(CL)
  599.    Ink H
  600.    Box 25,20 To 35,22
  601.    Box 29,15 To 31,27
  602.    Screen 0
  603. End Proc
  604. Procedure RESET
  605.    A=0 : H=0 : W=0 : F$="" : SCR=0 : C=0 : C1=0 : C2=0 : C3=0 : CL$="" : CL1$=""
  606. End Proc
  607. Procedure PROT
  608.    If Exist("read.me") Then Goto UI
  609.    MESS
  610. End Proc
  611. Procedure MESS
  612.    Screen Open 0,640,250,4,Hires
  613.    Paper 0 : Pen 1 : Curs Off : Hide : Cls 0
  614.    Palette ,0
  615.    Print "You are using an illigal copy of A.I.M."
  616.    Print 
  617.    Print "This copy will 'NOT' work!"
  618.    Print 
  619.    Print "For your legal copy please send ï¿½3.00 to this address"
  620.    Print 
  621.    Centre "Megasoft Programing" : Print 
  622.    Centre "C/o Martin Donnelly" : Print 
  623.    Centre "15 Round Riding Road" : Print 
  624.    Centre "Dumbarton" : Print 
  625.    Centre "Scotland" : Print 
  626.    Centre "G82 2HB" : Print 
  627.    Print 
  628.    Print 
  629.    Print "Please also include a disk, and this number >> >> ";US;" << <<"
  630.    Print 
  631.    Print "I am afraid that if you do not use this number we can not give you a copy"
  632.    Print 
  633.    Print "Press any key!"
  634.    Fade 3,,$DDD : Wait 60
  635.    Do 
  636.       A$=Inkey$
  637.       If A$<>"" Then Edit 
  638.    Loop 
  639. End Proc
  640. Procedure FIND
  641.    Screen Copy 0,200,100,250,150 To 0,50,50
  642. End Proc
  643. Procedure MEM
  644. Screen Open 1,640,50,2,Hires
  645. Wind Open 3,50,0,60,6,2
  646. Print "     Warning You have less than half a meg of memory"
  647. Print At(12,2);"Memory available is";Chip Free;" bytes"
  648. Curs Off 
  649. Wait 200
  650. Screen Close 1
  651. End Proc